Inference at * 1 
Iof proof for Lemma decidable quotient equal:



1. T : Type
2. E : TT
3. EquivRel(T;x,y.E(x,y))
4. x, y:T. Dec(E(x,y))
  u, v:(x,y:T//E(x,y)). Dec(u = v) 

latex

 by ((OnMCls [0;4] (RWO "dec_iff_ex_bvfun")) 
CollapseTHENA ((Auto_aux (first_nat 1:n
C) ((first_nat 1:n),(first_nat 3:n)) (first_tok :t) inil_term))) 

latex

C1: 

C1: 4. f:TT. (x, y:T. ((x f y))  E(x,y))
C1:   f:(x,y:T//E(x,y))(x,y:T//E(x,y)). (u, v:(x,y:T//E(x,y)). ((u f v))  (u = v))
C.

Definitions	x,y. t(x;y), t  T, x(s1,s2), , P & Q, P  Q, P  Q, P  Q, x:A. B(x)
Lemmas	quotient wf, dec iff ex bvfun